home *** CD-ROM | disk | FTP | other *** search
- Option Explicit
-
- Declare Function SetTextAlign Lib "GDI" (ByVal hDC As Integer, ByVal wFlags As Integer) As Integer
- Declare Function SetCapture Lib "USER" (ByVal hWnd As Integer) As Integer
- Declare Sub ReleaseCapture Lib "USER" ()
-
- 'Text Alignment Options
- Global Const TA_NOUPDATECP = 0
- Global Const TA_UPDATECP = 1
-
- Global Const TA_LEFT = 0
- Global Const TA_RIGHT = 2
- Global Const TA_CENTER = 6
-
- Global Const TA_TOP = 0
- Global Const TA_BOTTOM = 8
- Global Const TA_BASELINE = 24
-
- Global Const MODAL = 1
- Global Const MODELESS = 0
-
-